home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Education / Library Hyper Card Templates / Cisler / Home / card_3011.txt < prev    next >
Encoding:
Text File  |  1987-09-30  |  4.3 KB  |  202 lines
  1. -- card: 3011 from stack: in
  2. -- bmap block id: 3080
  3. -- flags: 4000
  4. -- background id: 2282
  5. -- name: User Preferences
  6. ----- HyperTalk script -----
  7. on openCard
  8.   setUserLevel the userLevel
  9.   if card field "User Name" is empty
  10.   then click at the loc of card field "User Name"
  11. end openCard
  12.  
  13. on setUserLevel whatLevel
  14.   set userLevel to whatLevel
  15.   put the userLevel into card field "User Level"
  16.   set hilite of button "Browsing" to the userLevel = 1
  17.   set hilite of button "Typing" to the userLevel = 2
  18.   set hilite of button "Painting" to the userLevel = 3
  19.   set hilite of button "Authoring" to the userLevel = 4
  20.   set hilite of button "Scripting" to the userLevel = 5
  21.   set visible of button "Power Keys" to the userLevel >= 3
  22.   set visible of button "Blind Typing" to the userLevel = 5
  23.   set hilite of button "Power Keys" to the powerKeys
  24.   set hilite of button "Blind Typing" to the blindTyping
  25. end setUserLevel
  26.  
  27.  
  28.  
  29. -- part 1 (button)
  30. -- low flags: 00
  31. -- high flags: A006
  32. -- rect: left=95 top=145 right=166 bottom=223
  33. -- title width / last selected line: 0
  34. -- icon id / first selected line: 0 / 0
  35. -- text alignment: 1
  36. -- font id: 0
  37. -- text size: 12
  38. -- style flags: 0
  39. -- line height: 16
  40. -- part name: Browsing
  41. ----- HyperTalk script -----
  42. on mouseUp
  43.   setUserLevel 1
  44. end mouseUp
  45.  
  46.  
  47.  
  48. -- part 2 (button)
  49. -- low flags: 00
  50. -- high flags: A006
  51. -- rect: left=95 top=187 right=208 bottom=223
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 1
  55. -- font id: 0
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: Painting
  60. ----- HyperTalk script -----
  61. on mouseUp
  62.   setUserLevel 3
  63. end mouseUp
  64.  
  65.  
  66.  
  67. -- part 3 (button)
  68. -- low flags: 00
  69. -- high flags: A006
  70. -- rect: left=95 top=208 right=229 bottom=223
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 0 / 0
  73. -- text alignment: 1
  74. -- font id: 0
  75. -- text size: 12
  76. -- style flags: 0
  77. -- line height: 16
  78. -- part name: Authoring
  79. ----- HyperTalk script -----
  80. on mouseUp
  81.   setUserLevel 4
  82. end mouseUp
  83.  
  84.  
  85.  
  86. -- part 4 (button)
  87. -- low flags: 00
  88. -- high flags: E006
  89. -- rect: left=95 top=229 right=250 bottom=223
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 0 / 0
  92. -- text alignment: 1
  93. -- font id: 0
  94. -- text size: 12
  95. -- style flags: 0
  96. -- line height: 16
  97. -- part name: Scripting
  98. ----- HyperTalk script -----
  99. on mouseUp
  100.   setUserLevel 5
  101. end mouseUp
  102.  
  103.  
  104.  
  105. -- part 5 (button)
  106. -- low flags: 00
  107. -- high flags: E005
  108. -- rect: left=211 top=187 right=208 bottom=314
  109. -- title width / last selected line: 0
  110. -- icon id / first selected line: 0 / 0
  111. -- text alignment: 1
  112. -- font id: 0
  113. -- text size: 12
  114. -- style flags: 0
  115. -- line height: 16
  116. -- part name: Power Keys
  117. ----- HyperTalk script -----
  118. on mouseUp
  119.   set powerKeys to the hilite of button "Power Keys"
  120. end mouseUp
  121.  
  122.  
  123.  
  124. -- part 7 (field)
  125. -- low flags: 00
  126. -- high flags: 0000
  127. -- rect: left=168 top=91 right=111 bottom=392
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 0 / 0
  130. -- text alignment: 0
  131. -- font id: 3
  132. -- text size: 14
  133. -- style flags: 0
  134. -- line height: 18
  135. -- part name: User Name
  136. ----- HyperTalk script -----
  137. on closeField
  138.   global userName
  139.   put card field "User Name" into userName
  140. end closeField
  141.  
  142.  
  143.  
  144. -- part 8 (button)
  145. -- low flags: 00
  146. -- high flags: A006
  147. -- rect: left=95 top=166 right=187 bottom=223
  148. -- title width / last selected line: 0
  149. -- icon id / first selected line: 0 / 0
  150. -- text alignment: 1
  151. -- font id: 0
  152. -- text size: 12
  153. -- style flags: 0
  154. -- line height: 16
  155. -- part name: Typing
  156. ----- HyperTalk script -----
  157. on mouseUp
  158.   setUserLevel 2
  159. end mouseUp
  160.  
  161.  
  162.  
  163. -- part 9 (field)
  164. -- low flags: 81
  165. -- high flags: 0000
  166. -- rect: left=173 top=125 right=144 bottom=198
  167. -- title width / last selected line: 0
  168. -- icon id / first selected line: 0 / 0
  169. -- text alignment: 0
  170. -- font id: 3
  171. -- text size: 12
  172. -- style flags: 0
  173. -- line height: 16
  174. -- part name: User Level
  175.  
  176.  
  177. -- part 13 (button)
  178. -- low flags: 00
  179. -- high flags: A005
  180. -- rect: left=212 top=229 right=250 bottom=315
  181. -- title width / last selected line: 0
  182. -- icon id / first selected line: 0 / 0
  183. -- text alignment: 1
  184. -- font id: 0
  185. -- text size: 12
  186. -- style flags: 0
  187. -- line height: 16
  188. -- part name: Blind Typing
  189. ----- HyperTalk script -----
  190. on mouseUp
  191.   set blindTyping to the hilite of button "Blind Typing"
  192. end mouseUp
  193.  
  194.  
  195.  
  196. -- part contents for background part 6
  197. ----- text -----
  198. User Preferences
  199.  
  200. -- part contents for card part 9
  201. ----- text -----
  202. 5